Private Sub MultiPage1_Change()

    Dim ܰ躰 As String

    Select Case MultiPage1.Value

        Case 0

            btn.Enabled = False
            btn.Enabled = True
            btnħ.Enabled = False

            ܰ躰 = "׸ "

        Case 1

            btn.Enabled = True
            btn.Enabled = True
            btnħ.Enabled = False

            If TypeName(Selection) = "Range" Then
            
                ref.Value = Selection.Address
            
            End If

            ܰ躰 = " "

        Case 2

            btn.Enabled = True
            btn.Enabled = False
            btnħ.Enabled = True

            ܰ躰 = "ɼ "

    End Select

    With MultiPage1

        Me.Caption = ̸ & " - " & _
                     .Pages.Count & "ܰ  " & .Value + 1 & "ܰ " & _
                     "[" & ܰ躰 & "]"

    End With

End Sub